Quick PC 61/Quick PC 61.iso/I386/SASETUP.MSI/F77723_Web_LogSettings.asp

Text File | 2003-02-21 | 42.6 KB | 1,344 lines

<%@ Language=VBScript     %>

<%    Option Explicit       %>

<%
    '-------------------------------------------------------------------------
    ' Web_LogSettings.asp: set the log settings to the web service\sites
    '
    ' Copyright (c) Microsoft Corporation.  All rights reserved.
    '
    ' Date            Description
    ' 8-11-2000        Created date
    ' 15-01-2001    Modified for new Framework
    '-------------------------------------------------------------------------
%>

<!-- #include virtual="/admin/inc_framework.asp" -->
<!-- #include virtual="/admin/wsa/inc_wsa.asp" -->
<!-- #include virtual="/admin/wsa/inc_wsa.js" -->
<!-- #include file="inc_MasterWeb.js" -->

<%
        '-------------------------------------------------------------------------
    ' Form Variables
    '-------------------------------------------------------------------------
    Dim F_chkEnableLogging
    Dim F_selectActiveFormat
    Dim F_optLogPeriod
    Dim F_FileSize
    Dim F_LocalTime
    Dim F_LogFileDir
    Dim F_SiteCriteria

    '-------------------------------------------------------------------------
    ' Global Variables
    '-------------------------------------------------------------------------
    Dim G_objService

    '-------------------------------------------------------------------------
    ' Start of localization content
    '-------------------------------------------------------------------------
    Dim L_IISLOGSTASKTITLETEXT
    'Dim L_IISLOGSWEBROOTDIRHELP
    Dim L_ENABLELOGGING
    Dim L_ACTIVELOGFORMAT
    Dim L_IISLOGFORMAT
    Dim L_COMMONLOGFORMAT
    Dim L_ODBCLOG
    Dim L_EXTENDEDLOGFILE
    Dim L_NEWLOGTIME
    Dim L_HOURLY
    Dim L_MONTHLY
    Dim L_DAILY
    Dim L_UNLIMITEDFILESIZE
    Dim L_WEEKLY
    Dim L_WHENFILESIZE
    Dim L_MB
    Dim L_LOCALTIME
    Dim L_LOGFILEDIR
    Dim L_APPLYTOALLIISTEXT
    Dim L_APPLYTOINHERITEDIISTEXT
    Dim L_FAIL_TO_SET_LOGS
    Dim L_INVALID_DRIVE_ERRORMESSAGE
    Dim L_NOT_NTFS_DRIVE_ERRORMESSAGE
    Dim L_FAILED_CREATE_DIR_ERRORMESSAGE
    Dim L_FILEINFORMATION_ERRORMESSAGE
    Dim L_INFORMATION_ERRORMESSAGE
    Dim L_INVALID_DIR_FORMAT_ERRORMESSAGE
    Dim    L_INVALID_DIR_ERRORMESSAGE
    Dim L_DIRPATHEMPTY_ERRORMESSAGE
    Dim    L_DIRQUOTAERRORMESSAGE
    Dim L_FILE

    Dim L_ID_NOTEMPTY_ERROR_MESSAGE
    Dim L_SITE_IDENTIFIER_EMPTY_TEXT


    L_IISLOGSTASKTITLETEXT                =    GetLocString("GeneralSettings.dll", "40420037", "")
    'L_IISLOGSWEBROOTDIRHELP                =    GetLocString("GeneralSettings.dll", "40420038", "")
    L_ENABLELOGGING                        =    GetLocString("GeneralSettings.dll", "40420039", "")
    L_ACTIVELOGFORMAT                    =    GetLocString("GeneralSettings.dll", "4042003A", "")
    L_IISLOGFORMAT                        =    GetLocString("GeneralSettings.dll", "4042003B", "")
    L_COMMONLOGFORMAT                    =    GetLocString("GeneralSettings.dll", "4042003C", "")
    L_ODBCLOG                            =    GetLocString("GeneralSettings.dll", "4042003D", "")
    L_EXTENDEDLOGFILE                    =    GetLocString("GeneralSettings.dll", "4042003E", "")
    L_NEWLOGTIME                        =    GetLocString("GeneralSettings.dll", "4042003F", "")
    L_HOURLY                            =    GetLocString("GeneralSettings.dll", "40420040", "")
    L_MONTHLY                            =    GetLocString("GeneralSettings.dll", "40420041", "")
    L_DAILY                                =    GetLocString("GeneralSettings.dll", "40420042", "")
    L_UNLIMITEDFILESIZE                    =    GetLocString("GeneralSettings.dll", "40420043", "")
    L_WEEKLY                            =    GetLocString("GeneralSettings.dll", "40420044", "")
    L_WHENFILESIZE                        =    GetLocString("GeneralSettings.dll", "40420045", "")
    L_MB                                =    GetLocString("GeneralSettings.dll", "40420046", "")
    L_LOCALTIME                            =    GetLocString("GeneralSettings.dll", "40420047", "")
    L_LOGFILEDIR                        =    GetLocString("GeneralSettings.dll", "40420048", "")
    L_APPLYTOALLIISTEXT                    =    GetLocString("GeneralSettings.dll", "40420035", "")
    L_APPLYTOINHERITEDIISTEXT            =    GetLocString("GeneralSettings.dll", "40420034", "")
    L_FAIL_TO_SET_LOGS                    =    GetLocString("GeneralSettings.dll", "C0420049", "")
    L_INVALID_DRIVE_ERRORMESSAGE        =    GetLocString("GeneralSettings.dll", "C0420022", "")
    L_NOT_NTFS_DRIVE_ERRORMESSAGE        =    GetLocString("GeneralSettings.dll", "C042000D", "")
    L_FAILED_CREATE_DIR_ERRORMESSAGE    =    GetLocString("GeneralSettings.dll", "C042000E", "")
    L_FILEINFORMATION_ERRORMESSAGE        =   GetLocString("GeneralSettings.dll", "C042000C", "")
    L_INFORMATION_ERRORMESSAGE            =    GetLocString("GeneralSettings.dll", "C042000F", "")
    L_INVALID_DIR_FORMAT_ERRORMESSAGE    =    GetLocString("GeneralSettings.dll", "40420004", "")
    L_INVALID_DIR_ERRORMESSAGE            =    GetLocString("GeneralSettings.dll", "C042004B", "")
    L_DIRPATHEMPTY_ERRORMESSAGE            =    GetLocString("GeneralSettings.dll", "C042004C", "")
    L_FILE                                =    GetLocString("GeneralSettings.dll", "4042004A", "")
    '-------------------------------------------------------------------------
    'END of localization content
    '-------------------------------------------------------------------------

    'Create property page
    Dim rc
    Dim page

    rc=SA_CreatePage(L_IISLOGSTASKTITLETEXT,"",PT_PROPERTY,page)

    'Serve the page
    If(rc=0) then
        SA_ShowPage(Page)
    End if

    '-------------------------------------------------------------------------
    'Function:                OnInitPage()
    'Description:            Called to signal first time processing for this page.
    '                        Use this method to do first time initialization tasks
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnInitPage(ByRef PageIn,ByRef EventArg)
        InitObjects()
        SetVariablesFromSystem()
        OnInitPage = True
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnServePropertyPage()
    'Description:            Called when the page needs to be served.Use this
    '                        method to serve content
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnServePropertyPage(ByRef PageIn,Byref EventArg)
        Call ServeCommonJavaScript()
        Call ServePage()
        OnServePropertyPage = True
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnPostBackPage()
    'Description:            Called to signal that the page has been posted-back.
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnPostBackPage(ByRef PageIn ,ByRef EventArg)
        OnPostBackPage = True
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnSubmitPage()
    'Description:            Called when the page has been submitted for processing.
    '                        Use this method to process the submit request.
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnSubmitPage(ByRef PageIn ,ByRef EventArg)
        OnSubmitPage = ServeVariablesFromForm()
    End Function

    '-------------------------------------------------------------------------
    'Function:                OnClosePage()
    'Description:            Called when the page is about closed.Use this method
    '                        to perform clean-up processing
    'Input Variables:        PageIn,EventArg
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Public Function OnClosePage(ByRef PageIn ,ByRef EventArg)
        OnClosePage = TRUE
    End Function

    '-------------------------------------------------------------------------
    'Function:                ServeCommonJavaScript
    'Description:            Serves in initialiging the values,setting the form
    '                        data and validating the form values
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Function ServeCommonJavaScript()
%>
            <SCRIPT language="JavaScript" SRC="<%=m_VirtualRoot%>inc_global.js" ></SCRIPT>
        <script language="JavaScript">
         function ValidatePage()
            {
                 // validate directory
                var strID = "";
                strID = document.frmTask.txtLogFileDir.value;
                var strIndex = strID.indexOf("\\\\");
                if (strIndex > 0)
                {
                    SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALID_DIR_FORMAT_ERRORMESSAGE))%>");
                    document.frmTask.txtLogFileDir.focus();
                    return false;
                }

                if (document.frmTask.txtFileSize.disabled==false)
                {
                    var strFileSize = document.frmTask.txtFileSize.value;
                    if (strFileSize == "" || strFileSize == 0)
                    {
                        document.frmTask.txtFileSize.value = 1;
                        return true;
                    }
                }

                // validate site directory
                if (!(checkKeyforValidCharacters(strID)))
                        return false;

                UpdateHiddenVariables();
                return true;
            }

            function checkKeyforValidCharacters(strID)
            {

                var len = strID.length;
                var charAtPos;
                if(len > 0)
                {
                    for(var i=0; i<len;i++)
                    {
                      charAtPos = strID.charCodeAt(i);
                        if(charAtPos ==47 || charAtPos == 42 || charAtPos == 63 || charAtPos == 34 || charAtPos == 60 || charAtPos == 62 || charAtPos == 124 || charAtPos == 91 || charAtPos == 93 || charAtPos == 59 || charAtPos == 43 || charAtPos == 61 || charAtPos == 44)
                        {
                            SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_INVALID_DIR_ERRORMESSAGE))%>");
                            document.frmTask.txtLogFileDir.value = strID;
                            document.frmTask.txtLogFileDir.focus();
                            return false;

                        }
                    }
                    return true;
                }
                else
                {
                    var enableLogging = document.frmTask.chkEnableLogging.checked;
                    if (enableLogging == true)
                    {
                        SA_DisplayErr("<%=Server.HTMLEncode(SA_EscapeQuotes(L_DIRPATHEMPTY_ERRORMESSAGE))%>");
                        document.frmTask.txtLogFileDir.focus();
                        return false;
                    }
                    else
                        return true;
                }
            }

            //init function
            function Init()
            {

              var ActiveFormat = "<%=Server.HTMLEncode(F_selectActiveFormat) %>";

                if (ActiveFormat == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT) %>")
                {
                    document.frmTask.selectActiveFormat.selectedIndex = 0;
                }
                else if (ActiveFormat == "<%=Server.HTMLEncode(CONST_NCSALOGFILE_FORMAT) %>")
                {
                    document.frmTask.selectActiveFormat.selectedIndex = 1;
                }
                else if (ActiveFormat == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>")
                {
                    document.frmTask.selectActiveFormat.selectedIndex = 2;
                }
                else if (ActiveFormat == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT) %>")
                {
                    document.frmTask.selectActiveFormat.selectedIndex = 3;
                }
                var myValue,i;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;

                if(myValue == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>")
                {

                    var len = document.frmTask.optLogPeriod.length;
                    for(i=0;i<len;i++)
                    {
                        document.frmTask.optLogPeriod[i].disabled=true;
                        document.frmTask.optLogPeriod[i].checked=false;
                    }
                    document.frmTask.txtLogFileDir.disabled = true;
                    document.frmTask.chkLocalTime.disabled = true;
                    document.frmTask.txtFileSize.disabled = true;
                    document.frmTask.txtFileSize.value = "";
                }


                if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>" ||
                    myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>" ||
                    myValue == "<%=Server.HTMLEncode(CONST_NCSALOGFILE_FORMAT)%>")
                {

                    var len = document.frmTask.optLogPeriod.length;
                    tempVal1 = document.frmTask.optLogPeriod[3].checked;
                    tempVal2 = document.frmTask.optLogPeriod[5].checked;
                    if(tempVal1 == true){
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                        }

                    if(tempVal2 == true)
                    {
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = false;
                    }
                    else
                    {
                         if(!(myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>" ||
                            myValue == "<%=Server.HTMLEncode(CONST_NCSALOGFILE_FORMAT)%>" ))
                         {
                            if(document.frmTask.chkLocalTime.checked == true)
                            {
                                document.frmTask.chkLocalTime.disabled = false;
                                document.frmTask.chkLocalTime.checked = true;
                            }
                            else
                            {
                                if(tempVal1 == true || tempVal2 == true)
                                {
                                    document.frmTask.chkLocalTime.disabled = true;
                                    document.frmTask.chkLocalTime.checked = false;
                                }
                                else
                                {
                                    document.frmTask.chkLocalTime.disabled = false;
                                    document.frmTask.chkLocalTime.checked = false;
                                }
                            }
                        }
                    }

                    document.frmTask.txtLogFileDir.disabled = false;
                    var len = document.frmTask.optLogPeriod.length;
                    for(i=0;i<len;i++)
                    {    document.frmTask.optLogPeriod[i].disabled=false;
                    }
                }

                var enableLogging = "<%=Server.HTMLEncode(SA_EscapeQuotes(F_chkEnableLogging)) %>";
                if (enableLogging == "false")
                {
                        document.frmTask.txtLogFileDir.disabled = true;
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.selectActiveFormat.disabled = true;

                        var len = document.frmTask.optLogPeriod.length;
                        for(i=0;i<len;i++)
                        {    document.frmTask.optLogPeriod[i].disabled=true;
                        }
                        document.frmTask.txtFileSize.disabled = true;
                }
            }


            function enableFileTextBox()
            {
                document.frmTask.txtFileSize.disabled = false;
                document.frmTask.txtFileSize.focus();
                var myValue,i;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;


                if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
                {

                    var len = document.frmTask.optLogPeriod.length;
                    tempVal1 = document.frmTask.optLogPeriod[3].checked;
                    tempVal2 = document.frmTask.optLogPeriod[5].checked;
                    if(tempVal1 == true){
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                        document.frmTask.optLogPeriod[3].focus();
                        return true;
                        }

                    if(tempVal2 == true){
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = false;
                        return true;
                    }
                    else{
                         document.frmTask.chkLocalTime.disabled = false;
                         return true;
                    }
                }
                else{
                    tempVal1 = document.frmTask.optLogPeriod[3].checked;
                    if(tempVal1 == true){
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtFileSize.disabled = true;
                        tempVal1 = document.frmTask.optLogPeriod[3].focus();
                        return true;
                    }
                }
            }

            function DisableFileTextBox()
            {
                var myValue,i;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;

                if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
                {    document.frmTask.chkLocalTime.disabled = false;
                }
                else
                {    document.frmTask.chkLocalTime.disabled = true;
                }

                document.frmTask.txtFileSize.disabled = true;
            }

            function EnableLogFile()
            {
                var myValue,i;
                myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;


                if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
                {
                    document.frmTask.chkLocalTime.disabled = false;
                    document.frmTask.txtLogFileDir.disabled = false;

                    var len = document.frmTask.optLogPeriod.length;
                    for(i=0;i<len;i++)
                    {    document.frmTask.optLogPeriod[i].disabled=false;
                    }

                    var temp = document.frmTask.optLogPeriod[5].checked;
                    if (temp==true){
                        enableFileTextBox();
                        document.frmTask.chkLocalTime.disabled = true;}

                    var temp = document.frmTask.optLogPeriod[3].checked;
                    if (temp==true){
                        document.frmTask.txtFileSize.disabled = true;
                        document.frmTask.chkLocalTime.disabled = true;}

                    var len = document.frmTask.optLogPeriod.length;
                    var j = 0;
                    for(i=0;i<len;i++)
                    {
                        var temp = document.frmTask.optLogPeriod[i].checked;
                        if(temp===false)
                        {    j= j+1;}
                    }

                    if(j==len)
                    {
                        document.frmTask.optLogPeriod[2].checked = true;
                    }
                    return true;
                }
                else if(myValue == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT)%>")
                {
                        DisableFileTextBox();
                        var len = document.frmTask.optLogPeriod.length;
                        for(i=0;i<len;i++)
                        {
                            document.frmTask.optLogPeriod[i].disabled=true;
                        }
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.txtLogFileDir.disabled = true;
                        document.frmTask.chkLocalTime.checked = false;
                        document.frmTask.txtFileSize.disabled = true;
                        document.frmTask.txtFileSize.value = "";
                        return true;
                }
                else
                {
                    var len = document.frmTask.optLogPeriod.length;
                    var temp = document.frmTask.optLogPeriod[5].checked;
                    document.frmTask.chkLocalTime.disabled = true;
                    if ((myValue == "<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT)%>") ||
                        (myValue == "<%=Server.HTMLEncode(CONST_NCSALOGFILE_FORMAT)%>"))
                    {
                        document.frmTask.chkLocalTime.checked = false;
                    }
                    document.frmTask.txtLogFileDir.disabled = false;
                    if (temp==true)
                    {
                         enableFileTextBox();
                         document.frmTask.chkLocalTime.disabled = true;
                    }
                    for(i=0;i<len;i++)
                    {    document.frmTask.optLogPeriod[i].disabled=false;
                    }

                    var len = document.frmTask.optLogPeriod.length;
                    var j = 0;
                    for(i=0;i<len;i++)
                    {
                        var temp = document.frmTask.optLogPeriod[i].checked;
                        if(temp===false)
                        {    j= j+1;}
                    }

                    if(j==len)
                    {    document.frmTask.optLogPeriod[2].checked = true;
                    }
                    return true;
                }
            }

            function disableAll()
            {
                var myValue,i;
                    myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;
                    if(myValue == "<%=Server.HTMLEncode(SA_EscapeQuotes(CONST_ODBCLOGFILE_FORMAT))%>" ||
                       document.frmTask.chkEnableLogging.checked == false )
                    {
                        document.frmTask.txtLogFileDir.disabled = true;
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.chkLocalTime.checked = false;
                        document.frmTask.selectActiveFormat.disabled = true;

                        var len = document.frmTask.optLogPeriod.length;
                        for(i=0;i<len;i++)
                        {    document.frmTask.optLogPeriod[i].disabled=true;
                        }

                        // document.frmTask.txtFileSize.value = "";
                        document.frmTask.txtFileSize.disabled = true;
                    }
                    return true;
            }


            function enableAll()
            {
                if(document.frmTask.chkEnableLogging.checked == false)
                {
                    disableAll();
                }
                else
                {
                    var myValue,i;
                    myValue = document.frmTask.selectActiveFormat.options[document.frmTask.selectActiveFormat.selectedIndex].value;
                    if(myValue == "<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT)%>")
                    {
                        document.frmTask.txtLogFileDir.disabled = true;
                        document.frmTask.chkLocalTime.disabled = true;
                        document.frmTask.selectActiveFormat.disabled = false;

                        var len = document.frmTask.optLogPeriod.length;
                        for(i=0;i<len;i++)
                        {    document.frmTask.optLogPeriod[i].disabled=true;
                        }

                        document.frmTask.txtFileSize.value = "";
                        document.frmTask.txtFileSize.disabled = true;

                        return false;
                    }
                    else if(myValue == "<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT)%>")
                    {
                        var tempVal1 = document.frmTask.optLogPeriod[3].checked;
                        var tempVal2 = document.frmTask.optLogPeriod[5].checked;
                        if(tempVal1 == true)
                        {
                            document.frmTask.chkLocalTime.disabled = true;
                            document.frmTask.txtFileSize.disabled = true;
                        }
                        else if(tempVal2 == true)
                        {
                            document.frmTask.chkLocalTime.disabled = true;
                            document.frmTask.txtFileSize.disabled = false;
                        }
                        else
                        {
                            document.frmTask.chkLocalTime.disabled = false;
                        }
                    }
                    else
                    {
                        var tempVal2 = document.frmTask.optLogPeriod[5].checked;
                        if (tempVal2 ==  true)
                        {
                             document.frmTask.txtFileSize.disabled = false;
                             document.frmTask.txtFileSize.focus();
                        }

                        document.frmTask.chkLocalTime.disabled = true;
                    }

                    var len = document.frmTask.optLogPeriod.length;
                    document.frmTask.selectActiveFormat.disabled = false;
                    document.frmTask.txtLogFileDir.disabled = false;
                    for(i=0;i<len;i++)
                    {    document.frmTask.optLogPeriod[i].disabled=false;
                    }
                }
            }


            function SetData()
            {
                UpdateHiddenVariables();
            }

            function UpdateHiddenVariables()
            {
                document.frmTask.hdnEnableLog.value = document.frmTask.chkEnableLogging.checked;
                if (document.frmTask.chkLocalTime.disabled == false)
                {    document.frmTask.fileRollOver.value = document.frmTask.chkLocalTime.checked;
                }
                else
                {    document.frmTask.fileRollOver.value = false;
                }
            }

            function checkforEmptyfield()
            {
                var strFileSize = document.frmTask.txtFileSize.value;
                if (strFileSize == "")
                {    document.frmTask.txtFileSize.value = 1;
                }
                else if (strFileSize == 0)
                {    document.frmTask.txtFileSize.value = 1;
                }
            }

        </script>

<%    End Function

    '-------------------------------------------------------------------------
    'Function:                ServePage()
    'Description:            For displaying outputs HTML to the user
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                None
    'Global Variables:        L_DELETE_CONFIRM_TEXT
    '-------------------------------------------------------------------------
    Function ServePage
%>
        <table border=0 CELLSPACING=0 CELLPADDING=0 align=left class="TasksBody">
            <TR>
                <td>
                    <% select case F_chkEnableLogging
                        case "true" %>
                            <input type=checkbox name=chkEnableLogging checked tabIndex=1 onclick="enableAll()" value="ON">
                        <%case else%>
                            <input type=checkbox name=chkEnableLogging tabIndex=1 onclick="enableAll()" value="ON">
                    <%end select%>
                </td>
                <td nowrap class="TasksBody">
                    <%= L_ENABLELOGGING %>
                </td>
            </TR>
            <TR>
                <td></td>
                <TD nowrap class="TasksBody">
                    <%= L_ACTIVELOGFORMAT %>
                </td>
                <td colspan=4 >
                    <SELECT name=selectActiveFormat class="formField" size=1 tabIndex=2 onChange="EnableLogFile()"  value="<%=Server.HTMLEncode(F_selectActiveFormat)%>">
                        <OPTION  VALUE="<%=Server.HTMLEncode(CONST_MSIISLOGFILE_FORMAT) %>"><%=L_IISLOGFORMAT %></OPTION>
                        <OPTION selected value="<%=Server.HTMLEncode(CONST_NCSALOGFILE_FORMAT) %>" ><%= L_COMMONLOGFORMAT %></OPTION>
                        <OPTION  value="<%=Server.HTMLEncode(CONST_ODBCLOGFILE_FORMAT) %>" ><%= L_ODBCLOG %></OPTION>
                        <OPTION value="<%=Server.HTMLEncode(CONST_W3CEXLOGFILE_FORMAT) %>"><%= L_EXTENDEDLOGFILE %></OPTION>
                    </SELECT>
                </td>
            </TR>
            <TR>
                <td></td>
                <TD nowrap class="TasksBody">
                    <%= L_NEWLOGTIME %>
                </td>
                <td>
                    <%select case F_optLogPeriod
                        case L_HOURLY %>
                            <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 onclick="DisableFileTextBox();" checked>
                        <%case else%>
                            <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_HOURLY) %>" tabIndex=3 onclick="DisableFileTextBox();">
                    <%end select %>
                </td>
                <td nowrap class="TasksBody">
                    <%= L_HOURLY %>
                </td>
                <td>
                    <%select case F_optLogPeriod
                        case L_MONTHLY %>
                            <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_MONTHLY) %>" tabIndex=4 onclick="DisableFileTextBox();"  checked>
                        <%case else%>
                            <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_MONTHLY) %>" tabIndex=4 onclick="DisableFileTextBox();" >
                    <%end select %>
                </td>
                <td nowrap class="TasksBody">
                    <%= L_MONTHLY %>
                </td>
            </TR>
            <TR>
                <td colspan=2 >
                </td>
                <TD>
                    <%select case F_optLogPeriod
                        case L_DAILY %>
                            <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_DAILY) %>" tabIndex=5 onclick="DisableFileTextBox();" checked>
                        <%case else %>
                            <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_DAILY) %>" tabIndex=5 onclick="DisableFileTextBox();" >
                    <%end select%>
                </TD>
                <td width=50% nowrap class="TasksBody">
                    <%= L_DAILY %>
                </td>
                <TD>

                    <%select case F_optLogPeriod
                        case L_UNLIMITEDFILESIZE %>
                            <input type=radio name=optLogPeriod checked value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>" tabIndex=6 onclick="enableFileTextBox();" >
                        <%case else%>
                            <input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_UNLIMITEDFILESIZE) %>" tabIndex=6 onclick="enableFileTextBox();" >
                    <%end select %>

                </TD>
                <td width=50% nowrap class="TasksBody">
                    <%= L_UNLIMITEDFILESIZE %>
                </td>
            </TR>
            <TR>
                <td colspan=2 >
                </td>
                <TD>
                    <%select case F_optLogPeriod
                        case L_WEEKLY %>
                            <input type=radio name=optLogPeriod onclick="DisableFileTextBox();" tabIndex=7 value="<%=Server.HTMLEncode(L_WEEKLY) %>"  checked>
                        <%case else%>
                            <input type=radio name=optLogPeriod value="<%=Server.HTMLEncode(L_WEEKLY) %>" tabIndex=7 onclick="DisableFileTextBox();" >
                    <%end select%>
                </TD>
                <td colspan=3 nowrap class="TasksBody">
                    <%= L_WEEKLY %>
                </td>
            </TR>
            <TR>
                <td colspan=2 >
                </td>
                <TD>
                    <%select case F_optLogPeriod
                        case L_FILE %>
                            <input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_FILE) %>" checked tabIndex=8 onclick="javascript:enableFileTextBox();">
                            </td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
                            <input type=text name=txtFileSize class="formField" value="<%=Server.HTMLEncode(F_FileSize)%>" OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript: if(window.event.keyCode==13 || window.event.keyCode== 27)return true; checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">

                        <%case else%>
                            <input type=radio name=optLogPeriod value ="<%=Server.HTMLEncode(L_FILE) %>" tabIndex=8 onclick="javascript:enableFileTextBox();">
                            </td><td colspan=3 nowrap class="TasksBody"><%=L_WHENFILESIZE %>
                            <input type=text name=txtFileSize class="formField"  disabled value="<%=Server.HTMLEncode(F_FileSize)%>"OnKeyUP="javaScript:checkUserLimit(this,'filesize');" OnKeypress="javaScript:if(window.event.keyCode==13 || window.event.keyCode== 27)return true; checkKeyforNumbers(this);" onblur = "checkforEmptyfield();" size="20">
                    <%end select %>
                </TD>
            </TR>
            <tr>
                <td>

                </td>
            </tr>
            <tr>
                <td></td>
                <td colspan=5 class="TasksBody">
                    <%if F_optLogPeriod = L_FILE  or F_optLogPeriod = L_UNLIMITEDFILESIZE then%>
                        <input type=checkbox name=chkLocalTime disabled tabIndex=9 value="ON">
                    <%else%>
                        <%if F_selectActiveFormat = CONST_W3CEXLOGFILE_FORMAT and F_LocalTime=true then %>
                            <input type=checkbox name=chkLocalTime checked tabIndex=9 value="ON">
                        <%elseif F_selectActiveFormat = CONST_W3CEXLOGFILE_FORMAT and F_LocalTime=false then %>
                            <input type=checkbox name=chkLocalTime tabIndex=9 value="ON">
                        <%else%>
                            <input type=checkbox name=chkLocalTime disabled tabIndex=9 value="ON">
                        <%end if%>
                    <%end if%>
                      <%=    L_LOCALTIME %>
                </td>
            </tr>
            <tr>
                <td>
                </td>
                <td colspan=5 class="TasksBody">
                    <%= L_LOGFILEDIR %>

                    <input type=text name=txtLogFileDir class="formField"  size=40 onKeyPress = "ClearErr();" value="<%=F_LogFileDir%>" tabIndex=10>
                </td>
            </tr>
            <tr>
                <td>

                </td>
            </tr>
            <tr>
                <td>
                    <input type=radio name=optAllSites tabIndex=11 value="inherited" checked onclick="ClearErr()">
                </td>
                <td colspan=5 class="TasksBody">
                    <%= L_APPLYTOINHERITEDIISTEXT %>
                </td>
            </tr>
            <tr>
                <td>
                    <input type=radio name=optAllSites tabIndex=11 value="All"  onclick="ClearErr();">
                </td>
                <td colspan=5 class="TasksBody">
                    <%= L_APPLYTOALLIISTEXT %>
                </td>
            </tr>
        </TABLE>
        <input type=hidden name=fileRollOver>
        <input type=hidden name=hdnEnableLog>
<%
    End Function

    '-------------------------------------------------------------------------
    'Function name:            ServeVariablesFromForm()
    'Description:            Serves in getting the data from Client
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                True/False
    'Global Variables:        None
    '-------------------------------------------------------------------------
    Function ServeVariablesFromForm

        'setting the form variables
        F_chkEnableLogging = Request.Form("hdnEnableLog")
        F_selectActiveFormat = Request.Form("selectActiveFormat")
        F_optLogPeriod = Request.Form("optLogPeriod")

        F_FileSize = Request.Form("txtFileSize")
        F_LocalTime = Request.Form("fileRollOver")
        F_LogFileDir = Request.Form("txtLogFileDir")

        F_SiteCriteria = Request.Form("optAllSites")

        'set the master settings
        If SetLogSettings()then
           ServeVariablesFromForm = true
        else
            ServeVariablesFromForm = false
        end if

    End Function

    '-------------------------------------------------------------------------
    'Function name:            SetVariablesFromSystem
    'Description:            Serves in Getting the data from Client
    'Input Variables:        None
    'Output Variables:        None
    'Returns:                None
    'Global Variables:        G_objService
    '-------------------------------------------------------------------------

    Function SetVariablesFromSystem
        Err.Clear
        on error resume next

        'Getting values from system
        Dim objSites
        Dim strQuery
        Dim objLogFormat
        Dim instLog

        strQuery = GetIISWMIProviderClassName("IIs_WebServiceSetting") & ".Name='W3SVC'"

        set objSites = G_objService.Get(strQuery)
        if Err.number <> 0 then
            SetErrMsg L_INFORMATION_ERRORMESSAGE
            exit function
        end if

        select case objSites.Logtype
            case 1
                F_chkEnableLogging = "true"
            case else
                F_chkEnableLogging = "false"
        end select

        if F_chkEnableLogging = "true" then
            F_selectActiveFormat = IISLogFileGUIDToENName(objSites.LogPluginClsId)
        end if

        select case objSites.LogFilePeriod
            case 1
                F_optLogPeriod = L_DAILY
            case 2
                F_optLogPeriod = L_WEEKLY
            case 3
                F_optLogPeriod = L_MONTHLY
            case 4
                F_optLogPeriod = L_HOURLY
            case 0
                if objSites.LogFileTruncateSize <>-1 then
                    F_optLogPeriod = L_FILE
                    F_FileSize = objSites.LogFileTruncateSize / (1024*1024)
                else
                    F_optLogPeriod = L_UNLIMITEDFILESIZE
                    F_FileSize = ""
                end if
        end select

        F_LocalTime = cbool(objSites.LogFileLocaltimeRollover)

        F_LogFileDir = objSites.LogFileDirectory

        'release the object
        set objSites = nothing
        set objLogFormat = nothing

    End Function

    '-------------------------------------------------------------------------
    'Function name:            InitObjects
    'Description:            Initialization of global variables is done
    'Input Variables:        None
    'Returns:                true/false
    'Global Variable:        G_objService
    '--------------------------------------------------------------------------
    Function InitObjects()
        Err.Clear
        on error resume next

        ' Get the connection that is visible throughout
        Set G_objService = getWMIConnection(CONST_WMI_IIS_NAMESPACE)
        if Err.number <> 0 then
            SetErrMsg L_INFORMATION_ERRORMESSAGE
        end if

    end function

    '----------------------------------------------------------------------
    'Function name:            SetLogSettings
    'Description:            Serves in setting the logs to the web server
    'Input Variables:        None
    'Output Variables:        boolean
    'Returns:                None
    'Global Variables:        G_objService
    '----------------------------------------------------------------------

    Function SetLogSettings()
        Err.Clear
        on error resume next

        SetLogSettings = false

        Dim strObjPath

        InitObjects()

        if F_chkEnableLogging = "true" then
            if ValidateInputs = True then

                select case F_SiteCriteria

                    'apply to all sites
                    case "All"
                        if NOT SetLogsForAllSites(G_objService) then
                            ServeFailurePage L_FAIL_TO_SET_LOGS, sReturnURL
                            Call SA_TraceOut("Web_LogSettings", "SetLogSettings 1")
                        end if

                    'apply to inherited sites
                    case "inherited"
                        if NOT SetLogsForNewSites(G_objService) then
                            ServeFailurePage L_FAIL_TO_SET_LOGS,sReturnURL
                            Call SA_TraceOut("Web_LogSettings", "SetLogSettings 2")
                        end if
                end select

                SetLogSettings = true
                exit function

            End if

        else

            Dim inst
            Dim objSite
            Dim arrProp(4)

            arrProp(0) = "LogType"
            arrProp(1) = "LogPluginClsId"
            arrProp(2) = "LogFilePeriod"
            arrProp(3) = "LogFileTruncateSize"
            arrProp(4) = "LogFileLocaltimeRollover"

            select case F_SiteCriteria
                'apply to all sites
                case "All"

                    set objSite = G_objService.InstancesOf(GetIISWMIProviderClassName("IIS_WebServiceSetting"))
                    if Err.number <> 0 or objSite.count = 0 then
                        SetErrMsg L_INFORMATION_ERRORMESSAGE
                        Call SA_TraceOut("Web_LogSettings", "SetLogSettings 3")
                        exit function
                    end if

                    for each inst in objSite
                        inst.Logtype = 0

                        inst.put_(WBEMFLAG)

                        if Err.number <> 0 then
                            SA_TraceOut "Web_LogSettings",  L_FAIL_TO_SET_LOGS
                            SetLogSettings = false
                            exit function
                        end if
                    next

                    'Release the object
                    set objSite = nothing

                    Set objSite = GetNonInheritedIISSites(G_objService, GetIISWMIProviderClassName("IIS_WebServerSetting"), GetIISWMIProviderClassName("IIS_WebServiceSetting"), arrProp)

                    if objSite.count = 0 then
                            SetLogSettings = true
                            exit function
                    end if

                    for each inst in objSite

                        inst.Logtype = 0

                        inst.put_(WBEMFLAG)
                        if Err.number <> 0 then
                            SA_TraceOut "Web_LogSettings",  L_FAIL_TO_SET_LOGS
                            SetLogSettings = false
                            exit function
                        end if

                    next
                'apply to inherited sites
                case "inherited"

                    strObjPath = GetIISWMIProviderClassName("IIs_WebServiceSetting") & ".Name='W3SVC'"
                    set objSite = G_objService.Get(strObjPath)
                    if Err.number <> 0 then
                        SetErrMsg L_INFORMATION_ERRORMESSAGE
                        Call SA_TraceOut("Web_LogSettings", "SetLogsForNewSites 1")
                        exit function
                    end if

                    objSite.Logtype = 0

                    objSite.put_(WBEMFLAG)
                    if Err.number <> 0 then
                        SA_TraceOut "Web_LogSettings",  L_FAIL_TO_SET_LOGS
                        SetLogSettings = false
                        exit function
                    end if

            end select
            SetLogSettings = true

    end if

    'Release the object
    set G_objService = nothing
    set objSite = nothing

    end function

    '-----------------------------------------------------------------------------------------------------------
    'Function name:            SetLogsForAllSites
    'Description:            Serves in setting the logs to all Web sites
    'Input Variables:        G_objService
    'Output Variables:        boolean
    'Returns:                None
    'Global Variables:        G_objService
    'Other functions called:GetNonInheritedIISSites
    '-----------------------------------------------------------------------------------------------------------

    Function SetLogsForAllSites(G_objService)
        Err.Clear
        On error resume next

        Dim objSite
        Dim inst
        Dim arrProp(4)

        'Set logs for new sites
        SetLogsForNewSites G_objService

        SetLogsForAllSites  = false

        arrProp(0) = "LogType"
        arrProp(1) = "LogPluginClsId"
        arrProp(2) = "LogFilePeriod"
        arrProp(3) = "LogFileTruncateSize"
        arrProp(4) = "LogFileLocaltimeRollover"


        Set objSite = GetNonInheritedIISSites(G_objService, GetIISWMIProviderClassName("IIs_WebServerSetting"), GetIISWMIProviderClassName("IIS_WebServiceSetting"), arrProp)

        if objSite.count = 0 then
            SetLogsForAllSites = true
            exit function
        end if

        for each inst in objSite

            if not SetLogs(inst) then

                SA_TraceOut "Web_LogSettings",  L_FAIL_TO_SET_LOGS

            end if

        next

        'release the object
        set objSite = nothing

        SetLogsForAllSites  = true

    End Function



    '-----------------------------------------------------------------------------------------------------------
    'Function name:            SetLogsForNewSites
    'Description:            Serves in setting the logs to the new Web sites
    'Input Variables:        G_objService
    'Output Variables:        boolean
    'Global Variables:        G_objService
    'Returns:                boolean
    '-----------------------------------------------------------------------------------------------------------

    Function SetLogsForNewSites(G_objService)
        Err.Clear
        On error resume next

        Dim objSite
        Dim strObjPath

        SetLogsForNewSites = false

        strObjPath = GetIISWMIProviderClassName("IIs_WebServiceSetting") & ".Name='W3SVC'"

        set objSite = G_objService.Get(strObjPath)
        if Err.number <> 0 then
            SetErrMsg L_INFORMATION_ERRORMESSAGE
            Call SA_TraceOut("Web_LogSettings", "SetLogsForNewSites 1")
            exit function
        end if


        if not SetLogs(objSite) then

            SA_TraceOut "Web_LogSettings",  L_FAIL_TO_SET_LOGS

            SetLogsForNewSites = false
            exit function
        end if

        'release the object
        set objSite = nothing

        SetLogsForNewSites = true

    End Function

    '----------------------------------------------------------------------------------------------------
    'Function name:            ValidateInputs
    'Description:            Check whether directory exists
    '                        If directory does not exist, create the web site if the drive letter is valid
    '                        else give error message
    'Input Variables:        None
    'Global Variables:        None
    'Returns:                true/false
    '-----------------------------------------------------------------------------------------------------

    Function ValidateInputs()
        Err.Clear
        on error resume next

        Dim strIndx
        Dim objFso
        Dim nRetVal
        Dim strDir

        ValidateInputs = false

        if F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then

            strDir = F_LogFileDir

            Set objFso = server.CreateObject("Scripting.FileSystemObject")
            if Err.number <> 0 then
                SetErrMsg L_FILEINFORMATION_ERRORMESSAGE
                Call SA_TraceOut("Web_LogSettings", "ValidateInputs 1")
                exit function
            end if

            if mid(ucase(F_LogFileDir),1,8) = ucase("%WinDir%") then

                strDir = objFso.GetSpecialFolder(0) & mid(F_LogFileDir,9)

            elseif mid(ucase(F_LogFileDir),1,13) = ucase("%SystemDrive%") then

                strDir = objFso.GetSpecialFolder(0).Drive & mid(F_LogFileDir,14)
            else
                strDir = F_LogFileDir

            end if

                nRetVal = CreateSitePath( objFso, strDir )

                if nRetVal <> CONST_SUCCESS then

                    if nRetVal = CONST_INVALID_DRIVE then

                        SetErrMsg L_INVALID_DRIVE_ERRORMESSAGE
                        Call SA_TraceOut("Web_LogSettings", "ValidateInputs 2")

                    elseif nRetVal = CONST_NOTNTFS_DRIVE then

                        SetErrMsg L_NOT_NTFS_DRIVE_ERRORMESSAGE
                        Call SA_TraceOut("Web_LogSettings", "ValidateInputs 3")

                    else

                        SetErrMsg L_FAILED_CREATE_DIR_ERRORMESSAGE
                        Call SA_TraceOut("Web_LogSettings", "ValidateInputs 4")

                    end if

                    exit Function

                end if

                Dim strDriveName,objDriveType, intDriveSize

                strDriveName = left(strDir,2)

                if objFso.DriveExists(ucase(strDriveName)) then
                    set objDriveType =  objFso.GetDrive(strDriveName)
                    intDriveSize = clng(objDriveType.TotalSize / (1024*1024))
                end if

                'Release the object
                set objDriveType = nothing

                if clng(F_FileSize) > intDriveSize then
                       L_DIRQUOTAERRORMESSAGE = GetLocString("GeneralSettings.dll", "C0420057", Array(CStr(intDriveSize)))
                    SetErrMsg(L_DIRQUOTAERRORMESSAGE)
                    exit Function
                end if

        end if

        ValidateInputs = true

        'Release the object
        set objFso = nothing

    End Function


    '------------------------------------------------------------------
    'Function name:            SetLogs
    'Description:            Serves in setting the logs
    'Input Variables:        inst
    'Returns:                boolean 'true if no error occurs else false
    'Global Variables:        G_objService
    '------------------------------------------------------------------

    Function SetLogs(inst)
        Err.Clear
        on error resume next

        SetLogs = false

        Dim strQuery
        Dim objLogFormat
        Dim instLog

        inst.LogType = 1 'to enable logging
        inst.LogPluginClsId = IISLogFileENNameToGUID(F_selectActiveFormat)

        if F_selectActiveFormat <> CONST_ODBCLOGFILE_FORMAT then

            select case F_optLogPeriod
                case L_DAILY
                    inst.LogFilePeriod = 1
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_WEEKLY
                    inst.LogFilePeriod = 2
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_MONTHLY
                    inst.LogFilePeriod = 3
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_HOURLY
                    inst.LogFilePeriod = 4
                    inst.LogFileTruncateSize = 512 * 1024 * 1024
                case L_FILE
                    inst.LogFilePeriod = 0
                    if trim(F_FileSize) <> "" then
                        inst.LogFileTruncateSize = clng(F_FileSize) * 1024 * 1024
                    else
                        inst.LogFileTruncateSize = 1024 * 1024
                    end if
                case L_UNLIMITEDFILESIZE
                    inst.LogFilePeriod = 0
                    inst.LogFileTruncateSize = -1
            end select

            inst.LogFileLocaltimeRollover = cbool(F_LocalTime)
            inst.LogFileDirectory = trim(F_LogFileDir)

        end if

        inst.put_(WBEMFLAG)

        if Err.number <> 0 then
            SA_TraceOut "Web_LogSettings",  L_FAIL_TO_SET_LOGS
            SetLogs = false
            exit function
        end if

        'release the object
        set objLogFormat = nothing

        SetLogs = true
    End function
%>